home *** CD-ROM | disk | FTP | other *** search
/ Loadstar Extras 3 / Ex3side3.d64 / mover source < prev    next >
Text File  |  2022-08-28  |  2KB  |  181 lines
  1. open =$ffc0
  2. readst =$ffb7
  3. setlfs =$ffba
  4. setnam =$ffbd
  5. load =$ffd5
  6. getin =$ffe4
  7. clrchn =$ffcc
  8. close =$ffc3   ;a
  9. chrin =$ffcf
  10. chkout =$ffc9  ;x
  11. chkin =$ffc6   ;x
  12. plot =$fff0
  13. chrout =$ffd2
  14. color'pointer =243
  15. screen'line'pointer =209
  16. print'number =$bdcd ;x,a
  17. clear'line =59903
  18. background =53281
  19. border =53280
  20. unlisten =$ffae
  21. clall =$ffe7
  22.  
  23.  
  24.  
  25. .org $c000
  26. .mem
  27. .obj "@0:diff c000"
  28.  
  29. jsr get'string
  30. jsr setnam
  31. jsr get'number
  32. sty device
  33. tya
  34. tax
  35. lda #1
  36. ldy #0
  37. jsr setlfs
  38. ldx <$a000
  39. ldy >$a000
  40. lda #0
  41. jsr load
  42.  
  43. stx end'first
  44. sty end'first+1
  45.  
  46. jsr get'number
  47. sty first
  48. sta first+1
  49.  
  50. jsr get'string
  51. jsr setnam
  52. jsr get'number
  53. sty device
  54. tya
  55. tax
  56. lda #1
  57. ldy #0
  58. jsr setlfs
  59. ldx <$e000
  60. ldy >$e000
  61. lda #0
  62. jsr load
  63.  
  64. stx end'second
  65. sty end'second+1
  66.  
  67. jsr get'number
  68. sty second
  69. sta second+1
  70.  
  71. differentiate jsr get'string
  72. jsr setnam
  73. jsr get'number
  74. ldx $14
  75. lda #1
  76. ldy #1
  77. jsr setlfs
  78. jsr open
  79. jsr get'number
  80. sty desired
  81. sta desired+1
  82. jsr clrchn
  83. ldx #1
  84. jsr chkout
  85. lda desired
  86. jsr chrout
  87. lda desired+1
  88. jsr chrout
  89.  
  90.  
  91. lda <$a000
  92. sta 251
  93. lda >$a000
  94. sta 252
  95. lda <$e000
  96. sta 253
  97. lda >$e000
  98. sta 254
  99.  
  100. lda <$7000
  101. sta $22
  102. lda >$7000
  103. sta $23
  104.  
  105.  
  106.  
  107. jsr rom'out
  108.  
  109.  
  110. loop ldy #0
  111. lda (251),y
  112. cmp (253),y
  113. beq +
  114. sec 
  115. sbc first+1
  116. clc ; I know it isn't necessary. sue me for the missing 2 millionths of a second
  117. adc desired+1
  118. + jsr rom'in
  119. jsr chrout
  120. sta ($22),y
  121. jsr rom'out
  122. inc 251
  123. inc 253
  124. inc $22
  125. bne +
  126. inc 252
  127. inc 254
  128. inc $23
  129.  
  130. + lda 252
  131. cmp end'first+1
  132. bcc loop
  133. lda 251
  134. cmp end'first
  135. bcc loop
  136.  
  137.  
  138. jsr rom'in
  139. jsr clrchn
  140. lda #1
  141. jmp close
  142.  
  143.  
  144. get'number jsr $aefd
  145. jsr $ad8a
  146. jmp $b7f7
  147.  
  148.  
  149. ;***** get string from BASIC ****
  150.  
  151. get'string jsr $aefd
  152. jsr $ad9e
  153. jsr $b6a3
  154.  
  155. ldx $22
  156. ldy $23
  157. rts
  158.  
  159. rom'out pha
  160. sei
  161. lda #$74
  162. sta 1
  163. pla
  164. rts
  165.  
  166. rom'in pha
  167. lda #$77
  168. sta 1
  169. cli
  170. pla
  171. rts
  172.  
  173.  
  174. first .word 0
  175. second .word 0
  176. difference .word 0
  177. desired .word 0
  178. end'first .word 0
  179. end'second .word 0
  180. device .byt 0
  181.